home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / STRINGS / TPSTR7 / EXAM07.PAS < prev    next >
Pascal/Delphi Source File  |  1993-03-10  |  2KB  |  34 lines
  1. Program Exam07;
  2.  
  3. {**************************************************************************}
  4. {                                                                          }
  5. { Ce programme démontre les possibilités de ChrDelL                        }
  6. {                                                                          }
  7. {**************************************************************************}
  8.  
  9. Uses
  10.   TpStr;
  11.  
  12. {  ---------------------------------------------------------------         }
  13. {  Procedure   ChrDelL(Var Str: String;Match: Char);                       }
  14. {  ---------------------------------------------------------------         }
  15. {                                                                          }
  16. {  Effet     : Détruit tous les premiers caractères de <S> tant que qu'ils }
  17. {              sont égaux à <Match>.                                       }
  18. {                                                                          }
  19. {  Usage     : Chaîne pascal.                                              }
  20. {                                                                          }
  21. {  Vitesse   : 7800/s                                                      }
  22. {                                                                          }
  23. { -------------------------------------------------------------------------}
  24.  
  25. Var
  26.   S1 : String;
  27. Begin
  28.   S1 := 'LLLes chaussettes de l''archi-duchesse sont-elles sèches, archi-sèches';
  29.   ChrDelL(S1,'L');
  30.   S1 := '00003.14116';
  31.   ChrDelL(S1,'0');
  32. end.
  33.  
  34. { -------------------------------------------------------------------------}